10 IFA=1THEN13
12 A=1:LOAD"CHARSET",8,1
13 POKE53272,24:POKE53281,15:POKE53280,11:POKE646,0:PRINT"[147]":POKE53269,0
14 PRINT" [186]";:FORG=1TO36:PRINT"[187]";:NEXTG:PRINT"[186]"
15 FORG=1TO21:PRINT" [188]                                    [188]":NEXTG
16 PRINT" [186]";:FORG=1TO36:PRINT"[187]";:NEXTG:PRINT"[186]":GOSUB45000
17 PRINT"[196][146] [198][146] [194][146] [199][146] $[146] [195][146] [193][146] [197][146] $[146] ![146] ([146]"
18 PRINT"[164][146] [166][146] [162][146] [167][146] %[146] [163][146] [161][146] [165][146] %[146] [166][146] #[146]"
19 PRINT"[152][171][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][173]":GOSUB48000
20 PRINT"[151]HALLO !"
21 PRINT"NUN HABT IHR SIE ENDLICH IM LAUF-"
22 PRINT"WERK[220]DIE ERSTE [208][213][194][204][201][195][193][212][201][207][206]-ISSUE."
23 PRINT"IN DIESEM KLEINEN FILE WILL ICH"
24 PRINT"NUR NOCH SCHNELL EIN PAAR HINWEISE"
25 PRINT"ZUR BENUTZUNG DES MAGS GEBEN."
26 PRINT"[175][176] [193][195][200][212][213][206][199] !"
27 PRINT"[177][178] DIESES MAG IST FREEWARE[220]D.H. DU"
28 PRINT"   KANNST DIE GESAMTE DISK KOPIER-"
29 PRINT"   EN SOOFT DU WILLST[220]ALLERDINGS"
30 PRINT"   NUR OHNE DAS DIRECTORY ZU VER-"
31 PRINT"   @NDERN.":POKE198,0
32 GOSUB47000:GOSUB50000:PRINT"":POKE53269,0
33 PRINT"[201].[212][193][211][212][197][206][194][197][204][197][199][213][206][199] [219]"
34 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
35 PRINT"DIE MEN]S IM MAG WERDEN ENTWEDER"
36 PRINT"DURCH PFEIL ([166] Z.B. HAUPTMEN])"
37 PRINT"ODER PER 'FLIMMERBALKEN' GESTEU-"
38 PRINT"ERT."
39 PRINT"DIE BALKEN WERDEN DABEI MIT DEN"
40 PRINT"CURSORTASTEN ([161]HOCH [162]RUNTER) GE-"
41 PRINT"STEUERT.EINEN MEN]PUNKT W@HLT MAN"
42 PRINT"WIE GEHABT MIT [210][197][212][213][210][206] AN.":GOSUB46000
43 PRINT"BITTE TASTE DR]CKEN !":GOSUB47000:GOSUB50000
44 PRINT"":POKE53269,0
45 PRINT"[201][201].[212][197][216][212][160][204][197][211][197][206] :"
46 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
47 PRINT"NACHDEM MAN EINEN TEXT ANGEW@HLT"
48 PRINT"HAT[220]WIRD DIESER EINGELADEN UND DIE"
49 PRINT"ERSTE SEITE ANGEZEIGT."
50 PRINT"NUN GILT FOLGENDE TASTENBELEGUNG :"
51 PRINT
52 PRINT"F1 - SPRINGE ZU SEITE X"
53 PRINT"BL@TTERN MIT CURSORTASTEN ([166][165][161][162])"
54 PRINT
55 PRINT"MIT [210][197][212][213][210][206] KOMMT MAN WIEDER INS"
56 PRINT"HAUPTMEN].DER TEXT BLEIBT SOLANGE"
57 PRINT"IM SPEICHER[220]BIS EIN [193][206][196][197][210][197][210] TEXT"
58 PRINT"ANGEW@HLT WIRD.BIS DAHIN ERFOLGT"
59 PRINT"DER EINSPRUNG AN ALTER TEXTSTELLE.":POKE198,0
61 GOSUB48000:GOSUB47000:GOSUB50000
62 PRINT"":POKE53269,0
63 PRINT"SOWEIT ZUR MAGBEDIENUNG ! NUN NOCH"
64 PRINT"EINMAL DIE DRINGENDE BITTE DIESES"
65 PRINT"MAG MIT EINSENDUNGEN UND ABOS ZU"
66 PRINT"SUPPORTEN."
67 PRINT"SEE YA  (HOPE SO !),"
68 PRINT"YOURS [218][197][201][212][199][197][201][211][212]/PC"
69 PRINT"DA CREDIZ..."
70 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163]"
71 PRINT"CODING & CHARSET [219] ZEITGEIST"
72 PRINT"SPRITES          : HWK":GOSUB46000
73 POKE198,0:GOSUB47000:POKE53269,0:SYS64767
45000 SYS57812("ZAHLEN.SPR*"),8,1:POKE780,0:SYS65493:POKE53285,12:POKE53269,1
45001 POKE53271,1:POKE53277,1
45002 POKE53248,150:POKE53249,120:POKE53286,11:POKE53287,1
45003 FORG1=1TO10:POKE2040,223+G1:FORG2=1TO400:NEXTG2,G1
45004 POKE53271,0:POKE53277,0:POKE53269,0:RETURN
46000 SYS57812("AUTO.SPR*"),8,1:POKE780,0:SYS65493
46001 POKE2040,224:POKE2041,225:POKE53269,3:POKE53249,210:POKE53251,210
46002 POKE53288,1:POKE53287,1:POKE53286,11:POKE53285,12:POKE53269,3:POKE53276,3
46004 POKE53264,3:FORG=15TO5STEP-5:POKE53248,G:POKE53250,G+23:FORG1=1TO51
46005 NEXTG1,G:POKE53264,0:FORG=232TO45STEP-5:POKE53248,G:POKE53250,G+23
46006 FORG1=1TO50:NEXTG1,G
46999 RETURN
47000 GETA$:IFA$=""THEN47000
47001 RETURN
48000 SYS57812("UHR.SPR*"),8,1:POKE780,0:SYS65493:Q=0
48001 POKE2040,224:POKE2041,224:POKE53285,12:POKE53286,11:POKE53287,1
48002 POKE53269,3:POKE53248,70:POKE53249,70:POKE53276,3:POKE53251,70
48003 POKE53264,2:POKE53250,12:POKE53288,1
48004 FORG=1TO50:NEXTG:POKE2040,225:POKE2041,225:FORG=1TO50:NEXTG:POKE2040,226
48005 POKE2041,226:FORG=1TO50:NEXTG:POKE2040,227:POKE2040,227:FORG=1TO50:NEXTG
48006 POKE2041,228:POKE2040,228:FORG=1TO50:NEXTG:POKE2040,229:POKE2041,229
48007 FORG=1TO50:NEXTG:POKE2040,230:POKE2041,230:FORG=1TO50:NEXTG:POKE2040,231
48008 POKE2041,231:FORG=1TO50:NEXTG:POKE2040,232:POKE2041,232
48009 FORG=1TO50:NEXTG:POKE2040,224:POKE2041,224
48010 Q=Q+1:IFQ=5THENRETURN
48011 GOTO48004
48999 RETURN
50000 PRINT""
50001 FORG=1TO17
50002 PRINT"                                    "
50003 NEXTG:RETURN